home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 August (Alt) / CHIP 2005-08.1.iso / program / guvenlik / syslinux-3.07.exe / now.pl < prev    next >
Encoding:
Perl Script  |  1999-09-17  |  495 b   |  23 lines
  1. #!/usr/bin/perl
  2. # $Id: now.pl,v 1.5 1999/09/17 07:28:45 hpa Exp $
  3. #
  4. # Print the time (possibly the mtime of a file) as a hexadecimal integer
  5. # If more than one file, print the mtime of the *newest* file.
  6. #
  7.  
  8. undef $now;
  9.  
  10. foreach $file ( @ARGV ) {
  11.     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
  12.      $ctime,$blksize,$blocks) = stat($file);
  13.     if ( !defined($now) || $now < $mtime ) {
  14.     $now = $mtime;
  15.     }
  16. }
  17.  
  18. if ( !defined($now) ) {
  19.     $now = time;
  20. }
  21.  
  22. printf "0x%08x\n", $now;
  23.